Clean environment

rm(list = ls(all.names = TRUE))

Session info

sessionInfo()
## R version 3.2.2 (2015-08-14)
## Platform: x86_64-apple-darwin13.4.0 (64-bit)
## Running under: OS X 10.11.6 (El Capitan)
## 
## locale:
## [1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8
## 
## attached base packages:
## [1] stats     graphics  grDevices utils     datasets  methods   base     
## 
## loaded via a namespace (and not attached):
##  [1] magrittr_1.5      formatR_1.4       tools_3.2.2      
##  [4] htmltools_0.3.5   yaml_2.1.13       Rcpp_0.12.6      
##  [7] stringi_1.1.1     rmarkdown_0.9.6.4 knitr_1.13       
## [10] stringr_1.0.0     digest_0.6.9      evaluate_0.9

Preparation of the session

Fixed variables

FileExtension <- ".MTS.avi_res.csv"

# working directory
# where this report is
#setwd("./Git/Monrado/Reports/")

# blue will refer to father, red will refer to mother and green to child
colOrderList <- c("blue","red", "green")

ParticipantsList <- c("father", "mother", "child")

SyncPy utilisation for creating synchrony dataframe

After extracting filtered motion motion history with mean on sliding interval (overlapping interval) of 5 frames And after puting this data on a CSV file slideddata.csv

We import this data on python Script with panda module Call_S_Estimator.py This script will compute the synchrony between each dyad of the interaction and of the whole group It will return a csv file for each video SSIXXXX.csv with XXXX the name of the video (1606, BAJE059 etc) that we can import with R with this following function

Import and prepare SSIlog dataframe

#print("SSI Files Directory")
SSIlogFilesList <- list.files("../Data/CSV/Synchrony/log/S_estimator", full.name=TRUE)
#SSIlogFilesList
SSIlog <- data.frame(video="Name")
for (file in SSIlogFilesList){
    SSIalone <- read.csv(file)
#    print(str(SSIalone))
    SSIlog <- rbind.fill(SSIlog, SSIalone)}
SSIlog$video <- as.factor(SSIlog$video)
SSIlog <- SSIlog[-which(SSIlog$video=="Name"),]
SSIlog$Interval <- NULL
SSIlog <- rename (SSIlog, c("video" = "family"))
SSIlog <- rename (SSIlog, c("X" = "SSI-interval"))
SSIlog$SSI<-rowSums(SSIlog[, c("SSI_fa_ch", "SSI_mo_ch")], na.rm=T)

Import and prepare cutFrames dataframe

# Import data
cutFrames <- read.csv2("../Data/CSV/Cutframes.csv")

# Change the vector in character and cut the string in two parts minutes and second for the 4 time labels ("CutBefore"  "CutMiddle1" "CutMiddle2" "CutFinal") 
cutFrames$CutBefore <- as.character(cutFrames$CutBefore)
cutFramesCB <- strsplit(cutFrames$CutBefore, split=":")

# Compute the time in minutes from time in minutes and seconds for each video for Cut Before
Cut <- c()
for (i in 1:nrow(cutFrames)){ 
  CutBeforeAlone <- (as.numeric(cutFramesCB[i][[1]][1]) + as.numeric(cutFramesCB[i][[1]][2])/60)
  Cut <- c(Cut, CutBeforeAlone)
  }
cutFrames$CutBeforeMin <- Cut

# Compute the time in minutes from time in minutes and seconds for each video for Cut CutMiddle1
Cut <- c()
cutFrames$CutMiddle1 <- as.character(cutFrames$CutMiddle1)
cutMiddleSplit <- strsplit(cutFrames$CutMiddle1, split=":")
for (i in 1:nrow(cutFrames)){ 
  CutAlone <- (as.numeric(cutMiddleSplit[i][[1]][1]) + as.numeric(cutMiddleSplit[i][[1]][2])/60)
  Cut <- c(Cut, CutAlone)
  }
cutFrames$CutMiddle1Min <- Cut

# Compute the time in minutes from time in minutes and seconds for each video for Cut CutMiddle2
Cut <- c()
cutFrames$CutMiddle2 <- as.character(cutFrames$CutMiddle2)
cutMiddleSplit <- strsplit(cutFrames$CutMiddle2, split=":")
for (i in 1:nrow(cutFrames)){ 
  CutAlone <- (as.numeric(cutMiddleSplit[i][[1]][1]) + as.numeric(cutMiddleSplit[i][[1]][2])/60)
  Cut <- c(Cut, CutAlone)
  }
cutFrames$CutMiddle2Min <- Cut

# Compute the time in minutes from time in minutes and seconds for each video for Cut CutFinal
Cut <- c()
cutFrames$CutFinal <- as.character(cutFrames$CutFinal)
cutSplit <- strsplit(cutFrames$CutFinal, split=":")
for (i in 1:nrow(cutFrames)){ 
  CutAlone <- (as.numeric(cutSplit[i][[1]][1]) + as.numeric(cutSplit[i][[1]][2])/60)
  Cut <- c(Cut, CutAlone)
  }
cutFrames$CutFinalMin <- Cut
Cut <- c()

Merge the two dataframes : Global Synchrony scores no conflict vs conflict (log data)

#str(SSIlog)
#View(cutFrames)

SSIlog <- merge(SSIlog, cutFrames, by.x="family", by.y="family")
SSIlog$LabelVideo <- rep(NA, nrow(SSIlog)) 
SSIlog[which(SSIlog$Time_min <= SSIlog$CutBeforeMin),]$LabelVideo <- "Cut"

SSIlog[which(SSIlog$Time_min > SSIlog$CutBeforeMin & SSIlog$Time_min < SSIlog$CutMiddle1Min),]$LabelVideo <- "No Conflict"

SSIlog[which(SSIlog$Time_min >= SSIlog$CutMiddle1Min & SSIlog$Time_min <= SSIlog$CutMiddle2Min),]$LabelVideo <- "Cut"

SSIlog[which(SSIlog$Time_min > SSIlog$CutMiddle2Min & SSIlog$Time_min < SSIlog$CutFinalMin),]$LabelVideo <- "Conflict"

SSIlog[which(SSIlog$Time_min >= SSIlog$CutFinalMin),]$LabelVideo <- "Cut"

Description of SSIlog data frame

str(SSIlog)
## 'data.frame':    1054 obs. of  17 variables:
##  $ family       : Factor w/ 35 levels "1606","BAJE059",..: 1 1 1 1 1 1 1 1 1 1 ...
##  $ SSI-interval : int  0 1 2 3 4 5 6 7 8 9 ...
##  $ Time_min     : num  0 0.5 1 1.5 2 2.5 3 3.5 4 4.5 ...
##  $ SSI_fa_ch    : num  0.06097 0.015151 0.008147 0.000207 0.023456 ...
##  $ SSI_mo_ch    : num  NA NA NA NA NA NA NA NA NA NA ...
##  $ SSI          : num  0.06097 0.015151 0.008147 0.000207 0.023456 ...
##  $ CutBefore    : chr  "00:11" "00:11" "00:11" "00:11" ...
##  $ CutMiddle1   : chr  "05:30" "05:30" "05:30" "05:30" ...
##  $ CutMiddle2   : chr  "06:16" "06:16" "06:16" "06:16" ...
##  $ CutFinal     : chr  "16:27" "16:27" "16:27" "16:27" ...
##  $ ChildSex     : Factor w/ 2 levels "Female","Male": 1 1 1 1 1 1 1 1 1 1 ...
##  $ ParentSex    : Factor w/ 2 levels "Female","Male": 2 2 2 2 2 2 2 2 2 2 ...
##  $ CutBeforeMin : num  0.183 0.183 0.183 0.183 0.183 ...
##  $ CutMiddle1Min: num  5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5 ...
##  $ CutMiddle2Min: num  6.27 6.27 6.27 6.27 6.27 ...
##  $ CutFinalMin  : num  16.4 16.4 16.4 16.4 16.4 ...
##  $ LabelVideo   : chr  "Cut" "No Conflict" "No Conflict" "No Conflict" ...
#View(SSIlog)

Data dictionnary of SSIlog data frame

  • family : code of the family
  • SSI-interval** : interval of SSI
  • Time_min : Time in minutes
  • SSI_fa_ch : SSI index of Synchrony between father and child
  • SSI_mo_ch : SSI index of Synchrony between mother and child
  • SSI : SSI index of the interaction (father-child or mother-child)
  • CutBefore : when the experimenter leave the room and the interaction begin character string in the form min:sec
  • CutMiddle1 : when the experimenter come back to explain that the participants are asked to have a conflictual discussion, character string in the form min:sec
  • CutMiddle2 : when the experimenter leave and the conflictual discussion begin Between is the conflictual discussion, character string in the form min:sec
  • CutFinal : when the experimenter come back to shut down the camera, character string in the form min:sec
  • ChildSex : Factor variable : Male of Female
  • ParentSex : Factor variable : Male of Female
  • CutBeforeMin : when the experimenter leave the room and the interaction begin numeric variable in minutes
  • CutMiddle1Min : when the experimenter come back to explain that the participants are asked to have a conflictual discussion, numeric variable in minutes
  • CutMiddle2Min : when the experimenter leave and the conflictual discussion begin Between is the conflictual discussion, numeric variable in minutes
  • CutFinalMin : when the experimenter come back to shut down the camera, numeric variable in minutes
  • LabelVideo : label of the video if it is related to No Conflict period or Conflict Period

Synchrony scores log for each dyad

AUCratios <- c()
Max.SSI.Conflict <- c()
Min.SSI.Conflict <- c()
Max.SSI.No.Conflict <- c()
Min.SSI.No.Conflict <- c()
par(mar=c(4,4,4,3), mfrow=c(1,1))
for (i in unique(SSIlog$family)){
    plot(SSIlog[which(SSIlog$family==i),]$Time_min, SSIlog[which(SSIlog$family==i),]$SSI, ylim=c(0, 0.3), main=paste("Synchrony scores in", i, "family"), xlab = "Time (minute)", ylab="Synchrony score", lwd=2, type="l", col=rainbow(2)[1], cex.axis=0.7, xaxp=c(0,length(SSIlog[which(SSIlog$family==i),]$Time_min), length(SSIlog[which(SSIlog$family==i),]$Time_min)))
    print(paste ("Minimum synchrony in No conflict condition is", min(SSIlog[which(SSIlog$family==i & SSIlog$LabelVideo=="No Conflict"),]$SSI)))
    print(paste("Maximum synchrony in No conflict condition is", max(SSIlog[which(SSIlog$family==i & SSIlog$LabelVideo=="No Conflict"),]$SSI)))
    
    print(paste("Minimum synchrony in Conflict condition is", min(SSIlog[which(SSIlog$family==i& SSIlog$LabelVideo=="Conflict"),]$SSI)))
    print(paste("Maximum synchrony in Conflict condition is", max(SSIlog[which(SSIlog$family==i& SSIlog$LabelVideo=="Conflict"),]$SSI)))

    Min.SSI.No.Conflict <- c(Min.SSI.No.Conflict, min(SSIlog[which(SSIlog$family==i & SSIlog$LabelVideo=="No Conflict"),]$SSI))
    Max.SSI.No.Conflict <- c(Max.SSI.No.Conflict, max(SSIlog[which(SSIlog$family==i & SSIlog$LabelVideo=="No Conflict"),]$SSI))
    Min.SSI.Conflict <- c(Min.SSI.Conflict, min(SSIlog[which(SSIlog$family==i& SSIlog$LabelVideo=="Conflict"),]$SSI))  
    Max.SSI.Conflict <- c(Max.SSI.Conflict, max(SSIlog[which(SSIlog$family==i& SSIlog$LabelVideo=="Conflict"),]$SSI))
    
#Compute AUC
    # No conflict
    AUCnoconflict <-trapz(SSIlog[which(SSIlog$family==i & SSIlog$LabelVideo=="No Conflict"),]$Time_min, SSIlog[which(SSIlog$family==i & SSIlog$LabelVideo=="No Conflict"),]$SSI)
    print(paste ("AUC of synchrony score in no Conflict condition is", AUCnoconflict))
#   hist(SSIlog[which(SSIlog$family==i & SSIlog$LabelVideo=="No Conflict"),]$SSI)
    
    Time.minimum <- min(SSIlog[which(SSIlog$family==i & SSIlog$LabelVideo=="No Conflict"),]$Time_min)
    Time.max <- max(SSIlog[which(SSIlog$family==i & SSIlog$LabelVideo=="No Conflict"),]$Time_min)
        
    AUCnoconflictByMinute <- AUCnoconflict/(Time.max-Time.minimum)
    print(paste("AUC of synchrony score by Minute in no conflict condition is", AUCnoconflictByMinute))
        
    # Conflict
    AUCconflict <-trapz(SSIlog[which(SSIlog$family==i & SSIlog$LabelVideo=="Conflict"),]$Time_min, SSIlog[which(SSIlog$family==i & SSIlog$LabelVideo=="Conflict"),]$SSI)
        
    print(paste ("AUC of synchrony score in Conflict condition is", AUCconflict))
        
#   hist(SSIlog[which(SSIlog$family==i & SSIlog$LabelVideo=="Conflict"),]$SSI)
    Time.minimum <- min(SSIlog[which(SSIlog$family==i & SSIlog$LabelVideo=="Conflict"),]$Time_min)
    Time.max <- max(SSIlog[which(SSIlog$family==i & SSIlog$LabelVideo=="Conflict"),]$Time_min)
        
    AUCconflictByMinute <- AUCconflict/(Time.max-Time.minimum)
        print(paste("AUC of synchrony score in Conflict by minute is", AUCconflictByMinute))
    AUCbyMinuteRatio <- AUCconflictByMinute/AUCnoconflictByMinute
    print(paste("AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is", AUCbyMinuteRatio))
    AUCratios <-c(AUCratios, AUCbyMinuteRatio)}

## [1] "Minimum synchrony in No conflict condition is 0.00020723219929"
## [1] "Maximum synchrony in No conflict condition is 0.162641427036"
## [1] "Minimum synchrony in Conflict condition is 2.27330022941e-05"
## [1] "Maximum synchrony in Conflict condition is 0.196229925583"
## [1] "AUC of synchrony score in no Conflict condition is 0.16966785792937"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0377039684287489"
## [1] "AUC of synchrony score in Conflict condition is 0.436947015248242"
## [1] "AUC of synchrony score in Conflict by minute is 0.0459944226577097"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 1.21988280211479"

## [1] "Minimum synchrony in No conflict condition is 3.91224496984e-05"
## [1] "Maximum synchrony in No conflict condition is 0.111070858337"
## [1] "Minimum synchrony in Conflict condition is 0.000171230456478"
## [1] "Maximum synchrony in Conflict condition is 0.283594192505"
## [1] "AUC of synchrony score in no Conflict condition is 0.116015420406248"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0257812045347218"
## [1] "AUC of synchrony score in Conflict condition is 0.583808296557597"
## [1] "AUC of synchrony score in Conflict by minute is 0.0583808296557597"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 2.26447253762457"

## [1] "Minimum synchrony in No conflict condition is 6.28762575897e-05"
## [1] "Maximum synchrony in No conflict condition is 0.0366834349183"
## [1] "Minimum synchrony in Conflict condition is 9.89174719891e-05"
## [1] "Maximum synchrony in Conflict condition is 0.196797853623"
## [1] "AUC of synchrony score in no Conflict condition is 0.0456773938126104"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0101505319583579"
## [1] "AUC of synchrony score in Conflict condition is 0.416424713128804"
## [1] "AUC of synchrony score in Conflict by minute is 0.0462694125698671"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 4.55832391442"

## [1] "Minimum synchrony in No conflict condition is 4.74519790791e-05"
## [1] "Maximum synchrony in No conflict condition is 0.255074329696"
## [1] "Minimum synchrony in Conflict condition is 0.000115994006333"
## [1] "Maximum synchrony in Conflict condition is 0.288862141322"
## [1] "AUC of synchrony score in no Conflict condition is 0.28232675788508"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0627392795300179"
## [1] "AUC of synchrony score in Conflict condition is 0.389086258725922"
## [1] "AUC of synchrony score in Conflict by minute is 0.0432318065251025"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 0.689070815746586"

## [1] "Minimum synchrony in No conflict condition is 0.0243316991252"
## [1] "Maximum synchrony in No conflict condition is 0.0932572497472"
## [1] "Minimum synchrony in Conflict condition is 0.00237081996945"
## [1] "Maximum synchrony in Conflict condition is 0.23482098079"
## [1] "AUC of synchrony score in no Conflict condition is 0.1989853008936"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0497463252234"
## [1] "AUC of synchrony score in Conflict condition is 0.558372646389115"
## [1] "AUC of synchrony score in Conflict by minute is 0.0620414051543461"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 1.24715554115267"

## [1] "Minimum synchrony in No conflict condition is 0.000100830792908"
## [1] "Maximum synchrony in No conflict condition is 0.073888891093"
## [1] "Minimum synchrony in Conflict condition is 7.18268950624e-05"
## [1] "Maximum synchrony in Conflict condition is 0.0901475828251"
## [1] "AUC of synchrony score in no Conflict condition is 0.110945685279709"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0246545967288242"
## [1] "AUC of synchrony score in Conflict condition is 0.206796305666991"
## [1] "AUC of synchrony score in Conflict by minute is 0.0243289771372931"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 0.986792743149986"

## [1] "Minimum synchrony in No conflict condition is 1.81882928162e-05"
## [1] "Maximum synchrony in No conflict condition is 0.11575092285"
## [1] "Minimum synchrony in Conflict condition is 0.00221502611497"
## [1] "Maximum synchrony in Conflict condition is 0.214274213819"
## [1] "AUC of synchrony score in no Conflict condition is 0.15706187315563"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0349026384790289"
## [1] "AUC of synchrony score in Conflict condition is 0.49178546904271"
## [1] "AUC of synchrony score in Conflict by minute is 0.05176689147818"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 1.4831798893738"

## [1] "Minimum synchrony in No conflict condition is 3.370852788e-05"
## [1] "Maximum synchrony in No conflict condition is 0.171920231215"
## [1] "Minimum synchrony in Conflict condition is 0.000689975133604"
## [1] "Maximum synchrony in Conflict condition is 0.15826268533"
## [1] "AUC of synchrony score in no Conflict condition is 0.191993708803804"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0426652686230674"
## [1] "AUC of synchrony score in Conflict condition is 0.431812525401193"
## [1] "AUC of synchrony score in Conflict by minute is 0.0479791694890214"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 1.12454863258686"

## [1] "Minimum synchrony in No conflict condition is 0.000346040615236"
## [1] "Maximum synchrony in No conflict condition is 0.0733078310721"
## [1] "Minimum synchrony in Conflict condition is 2.26846188593e-05"
## [1] "Maximum synchrony in Conflict condition is 0.169792577552"
## [1] "AUC of synchrony score in no Conflict condition is 0.095080446422783"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0211289880939518"
## [1] "AUC of synchrony score in Conflict condition is 0.283593867919292"
## [1] "AUC of synchrony score in Conflict by minute is 0.0283593867919292"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 1.34220279105781"

## [1] "Minimum synchrony in No conflict condition is 0.00112080671499"
## [1] "Maximum synchrony in No conflict condition is 0.13457144619"
## [1] "Minimum synchrony in Conflict condition is 0.000406039769406"
## [1] "Maximum synchrony in Conflict condition is 0.120967204097"
## [1] "AUC of synchrony score in no Conflict condition is 0.176885897237685"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.03930797716393"
## [1] "AUC of synchrony score in Conflict condition is 0.277889216120201"
## [1] "AUC of synchrony score in Conflict by minute is 0.0292514964337054"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 0.744161835439024"

## [1] "Minimum synchrony in No conflict condition is 1.85788540922e-05"
## [1] "Maximum synchrony in No conflict condition is 0.211509626897"
## [1] "Minimum synchrony in Conflict condition is 0.00225188492452"
## [1] "Maximum synchrony in Conflict condition is 0.216672202487"
## [1] "AUC of synchrony score in no Conflict condition is 0.212693810467176"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.047265291214928"
## [1] "AUC of synchrony score in Conflict condition is 0.46446981882463"
## [1] "AUC of synchrony score in Conflict by minute is 0.0516077576471811"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 1.0918743187788"

## [1] "Minimum synchrony in No conflict condition is 0.000357689795769"
## [1] "Maximum synchrony in No conflict condition is 0.121092339891"
## [1] "Minimum synchrony in Conflict condition is 0.000647252492938"
## [1] "Maximum synchrony in Conflict condition is 0.158087219594"
## [1] "AUC of synchrony score in no Conflict condition is 0.087484903179031"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0194410895953402"
## [1] "AUC of synchrony score in Conflict condition is 0.542956673231534"
## [1] "AUC of synchrony score in Conflict by minute is 0.0603285192479482"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 3.10314496273955"

## [1] "Minimum synchrony in No conflict condition is 0.00082628140385"
## [1] "Maximum synchrony in No conflict condition is 0.161167996464"
## [1] "Minimum synchrony in Conflict condition is 0.000114763100909"
## [1] "Maximum synchrony in Conflict condition is 0.291958679445"
## [1] "AUC of synchrony score in no Conflict condition is 0.29598772206624"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0657750493480533"
## [1] "AUC of synchrony score in Conflict condition is 0.654164740683496"
## [1] "AUC of synchrony score in Conflict by minute is 0.0769605577274701"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 1.17005701235172"

## [1] "Minimum synchrony in No conflict condition is 0.000433217722003"
## [1] "Maximum synchrony in No conflict condition is 0.101649149753"
## [1] "Minimum synchrony in Conflict condition is 6.15190131059e-08"
## [1] "Maximum synchrony in Conflict condition is 0.249178556122"
## [1] "AUC of synchrony score in no Conflict condition is 0.119417400496912"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0238834800993823"
## [1] "AUC of synchrony score in Conflict condition is 0.63104586316634"
## [1] "AUC of synchrony score in Conflict by minute is 0.063104586316634"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 2.64218556316113"

## [1] "Minimum synchrony in No conflict condition is 0.000225989581963"
## [1] "Maximum synchrony in No conflict condition is 0.0939335055613"
## [1] "Minimum synchrony in Conflict condition is 0.00337751015232"
## [1] "Maximum synchrony in Conflict condition is 0.205810500468"
## [1] "AUC of synchrony score in no Conflict condition is 0.144488560062803"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0321085689028451"
## [1] "AUC of synchrony score in Conflict condition is 0.460219275670171"
## [1] "AUC of synchrony score in Conflict by minute is 0.0511354750744634"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 1.59258032424897"

## [1] "Minimum synchrony in No conflict condition is 0.000149138397097"
## [1] "Maximum synchrony in No conflict condition is 0.134418063989"
## [1] "Minimum synchrony in Conflict condition is 0.000890310987045"
## [1] "Maximum synchrony in Conflict condition is 0.29947958979"
## [1] "AUC of synchrony score in no Conflict condition is 0.201322019976264"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0503305049940659"
## [1] "AUC of synchrony score in Conflict condition is 0.74725698033122"
## [1] "AUC of synchrony score in Conflict by minute is 0.08791258592132"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 1.74670581850282"

## [1] "Minimum synchrony in No conflict condition is 0.000157639011598"
## [1] "Maximum synchrony in No conflict condition is 0.0778500356114"
## [1] "Minimum synchrony in Conflict condition is 1.44480522229e-05"
## [1] "Maximum synchrony in Conflict condition is 0.12534744295"
## [1] "AUC of synchrony score in no Conflict condition is 0.164630102611741"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0365844672470537"
## [1] "AUC of synchrony score in Conflict condition is 0.252110865185128"
## [1] "AUC of synchrony score in Conflict by minute is 0.0265379858089609"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 0.725389429064274"

## [1] "Minimum synchrony in No conflict condition is 7.89646772482e-05"
## [1] "Maximum synchrony in No conflict condition is 0.0934437592177"
## [1] "Minimum synchrony in Conflict condition is 1.61793844508e-05"
## [1] "Maximum synchrony in Conflict condition is 0.166982759111"
## [1] "AUC of synchrony score in no Conflict condition is 0.0836793258448089"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0185954057432909"
## [1] "AUC of synchrony score in Conflict condition is 0.461528749353694"
## [1] "AUC of synchrony score in Conflict by minute is 0.0512809721504105"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 2.75772267937269"

## [1] "Minimum synchrony in No conflict condition is 0.000150869165166"
## [1] "Maximum synchrony in No conflict condition is 0.137746488791"
## [1] "Minimum synchrony in Conflict condition is 3.12088845568e-05"
## [1] "Maximum synchrony in Conflict condition is 0.180805367101"
## [1] "AUC of synchrony score in no Conflict condition is 0.140706423238676"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0312680940530391"
## [1] "AUC of synchrony score in Conflict condition is 0.386861502302805"
## [1] "AUC of synchrony score in Conflict by minute is 0.0455131179179771"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 1.45557698018864"

## [1] "Minimum synchrony in No conflict condition is 0.000972786771489"
## [1] "Maximum synchrony in No conflict condition is 0.126824043684"
## [1] "Minimum synchrony in Conflict condition is 8.72473957747e-07"
## [1] "Maximum synchrony in Conflict condition is 0.246780167452"
## [1] "AUC of synchrony score in no Conflict condition is 0.131235071591614"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0262470143183229"
## [1] "AUC of synchrony score in Conflict condition is 0.339474457424007"
## [1] "AUC of synchrony score in Conflict by minute is 0.0452632609898676"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 1.72451085067872"

## [1] "Minimum synchrony in No conflict condition is 0.00200613874381"
## [1] "Maximum synchrony in No conflict condition is 0.152166904067"
## [1] "Minimum synchrony in Conflict condition is 3.68902693213e-05"
## [1] "Maximum synchrony in Conflict condition is 0.0576371314738"
## [1] "AUC of synchrony score in no Conflict condition is 0.218216094144413"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0545540235361031"
## [1] "AUC of synchrony score in Conflict condition is 0.199512558379676"
## [1] "AUC of synchrony score in Conflict by minute is 0.0221680620421862"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 0.406350633835756"

## [1] "Minimum synchrony in No conflict condition is 0.000213377012102"
## [1] "Maximum synchrony in No conflict condition is 0.118004043517"
## [1] "Minimum synchrony in Conflict condition is 0.00010141809024"
## [1] "Maximum synchrony in Conflict condition is 0.139157612746"
## [1] "AUC of synchrony score in no Conflict condition is 0.208483942682034"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0416967885364067"
## [1] "AUC of synchrony score in Conflict condition is 0.322382830981835"
## [1] "AUC of synchrony score in Conflict by minute is 0.0307031267601747"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 0.736342721775009"

## [1] "Minimum synchrony in No conflict condition is 0.00448403459167"
## [1] "Maximum synchrony in No conflict condition is 0.327005369357"
## [1] "Minimum synchrony in Conflict condition is 0.000542149998228"
## [1] "Maximum synchrony in Conflict condition is 0.174004226812"
## [1] "AUC of synchrony score in no Conflict condition is 0.311950538243985"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0779876345609963"
## [1] "AUC of synchrony score in Conflict condition is 0.351473869174739"
## [1] "AUC of synchrony score in Conflict by minute is 0.0390526521305266"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 0.500754412547061"

## [1] "Minimum synchrony in No conflict condition is 6.6003670196e-08"
## [1] "Maximum synchrony in No conflict condition is 0.318570720452"
## [1] "Minimum synchrony in Conflict condition is 0.00122202706246"
## [1] "Maximum synchrony in Conflict condition is 0.17456950152"
## [1] "AUC of synchrony score in no Conflict condition is 0.37007209354291"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0822382430095356"
## [1] "AUC of synchrony score in Conflict condition is 0.41150754868299"
## [1] "AUC of synchrony score in Conflict by minute is 0.0748195543059982"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 0.909790282087165"

## [1] "Minimum synchrony in No conflict condition is 0.000102161036203"
## [1] "Maximum synchrony in No conflict condition is 0.143483228266"
## [1] "Minimum synchrony in Conflict condition is 0.000133664664656"
## [1] "Maximum synchrony in Conflict condition is 0.163926022149"
## [1] "AUC of synchrony score in no Conflict condition is 0.146454433589111"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0325454296864691"
## [1] "AUC of synchrony score in Conflict condition is 0.231610730977487"
## [1] "AUC of synchrony score in Conflict by minute is 0.0272483212914691"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 0.83723956186689"

## [1] "Minimum synchrony in No conflict condition is 0.000248036969103"
## [1] "Maximum synchrony in No conflict condition is 0.155140864011"
## [1] "Minimum synchrony in Conflict condition is 0.000574595277048"
## [1] "Maximum synchrony in Conflict condition is 0.112300658709"
## [1] "AUC of synchrony score in no Conflict condition is 0.366386577639788"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0563671657907366"
## [1] "AUC of synchrony score in Conflict condition is 0.194237053170232"
## [1] "AUC of synchrony score in Conflict by minute is 0.0277481504528903"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 0.492275069424378"

## [1] "Minimum synchrony in No conflict condition is 0.00163352069499"
## [1] "Maximum synchrony in No conflict condition is 0.0887053441896"
## [1] "Minimum synchrony in Conflict condition is 2.81298510284e-05"
## [1] "Maximum synchrony in Conflict condition is 0.0942407102477"
## [1] "AUC of synchrony score in no Conflict condition is 0.12358776765932"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0274639483687378"
## [1] "AUC of synchrony score in Conflict condition is 0.146860503770938"
## [1] "AUC of synchrony score in Conflict by minute is 0.0183575629713673"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 0.668424027197186"

## [1] "Minimum synchrony in No conflict condition is 0.00153626571319"
## [1] "Maximum synchrony in No conflict condition is 0.111607083981"
## [1] "Minimum synchrony in Conflict condition is 0.000100003879974"
## [1] "Maximum synchrony in Conflict condition is 0.13310479091"
## [1] "AUC of synchrony score in no Conflict condition is 0.0985021154285125"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0246255288571281"
## [1] "AUC of synchrony score in Conflict condition is 0.214871980149183"
## [1] "AUC of synchrony score in Conflict by minute is 0.0238746644610203"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 0.969508699672435"

## [1] "Minimum synchrony in No conflict condition is 0.000477255036768"
## [1] "Maximum synchrony in No conflict condition is 0.172009824639"
## [1] "Minimum synchrony in Conflict condition is 0.000174590214324"
## [1] "Maximum synchrony in Conflict condition is 0.129758929753"
## [1] "AUC of synchrony score in no Conflict condition is 0.218174497812148"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0484832217360329"
## [1] "AUC of synchrony score in Conflict condition is 0.382330497669839"
## [1] "AUC of synchrony score in Conflict by minute is 0.0424811664077599"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 0.876203455270543"

## [1] "Minimum synchrony in No conflict condition is 0.00134694959214"
## [1] "Maximum synchrony in No conflict condition is 0.0818784291128"
## [1] "Minimum synchrony in Conflict condition is 1.03219948144e-08"
## [1] "Maximum synchrony in Conflict condition is 0.165525486434"
## [1] "AUC of synchrony score in no Conflict condition is 0.152651875672785"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0339226390383967"
## [1] "AUC of synchrony score in Conflict condition is 0.42535858878253"
## [1] "AUC of synchrony score in Conflict by minute is 0.0447745882928978"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 1.31990286021727"

## [1] "Minimum synchrony in No conflict condition is 0.00133517507141"
## [1] "Maximum synchrony in No conflict condition is 0.0756887251868"
## [1] "Minimum synchrony in Conflict condition is 6.72311730812e-05"
## [1] "Maximum synchrony in Conflict condition is 0.0666969356603"
## [1] "AUC of synchrony score in no Conflict condition is 0.115232029276655"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0256071176170344"
## [1] "AUC of synchrony score in Conflict condition is 0.108056406391335"
## [1] "AUC of synchrony score in Conflict by minute is 0.012006267376815"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 0.46886446012292"

## [1] "Minimum synchrony in No conflict condition is 5.88317922213e-05"
## [1] "Maximum synchrony in No conflict condition is 0.155525318562"
## [1] "Minimum synchrony in Conflict condition is 0.000686980323324"
## [1] "Maximum synchrony in Conflict condition is 0.106263468973"
## [1] "AUC of synchrony score in no Conflict condition is 0.265077388800652"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0589060864001448"
## [1] "AUC of synchrony score in Conflict condition is 0.293422881128257"
## [1] "AUC of synchrony score in Conflict by minute is 0.0345203389562655"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 0.58602329684188"

## [1] "Minimum synchrony in No conflict condition is 0.00481174926694"
## [1] "Maximum synchrony in No conflict condition is 0.0785141822773"
## [1] "Minimum synchrony in Conflict condition is 0.000253947604085"
## [1] "Maximum synchrony in Conflict condition is 0.142678642828"
## [1] "AUC of synchrony score in no Conflict condition is 0.15972712174368"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.031945424348736"
## [1] "AUC of synchrony score in Conflict condition is 0.337975201089102"
## [1] "AUC of synchrony score in Conflict by minute is 0.0355763369567476"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 1.11365986466088"

## [1] "Minimum synchrony in No conflict condition is 0.00108237727779"
## [1] "Maximum synchrony in No conflict condition is 0.121824368327"
## [1] "Minimum synchrony in Conflict condition is 0.000107117659305"
## [1] "Maximum synchrony in Conflict condition is 0.090693902849"
## [1] "AUC of synchrony score in no Conflict condition is 0.135416233477425"
## [1] "AUC of synchrony score by Minute in no conflict condition is 0.0338540583693562"
## [1] "AUC of synchrony score in Conflict condition is 0.174702175248822"
## [1] "AUC of synchrony score in Conflict by minute is 0.0194113528054247"
## [1] "AUC of synchrony score by minute Ratio (ie AUCconflictByMinute/AUCnoconflictByMinute) is 0.573383332469094"
AUCratios
##  [1] 1.2198828 2.2644725 4.5583239 0.6890708 1.2471555 0.9867927 1.4831799
##  [8] 1.1245486 1.3422028 0.7441618 1.0918743 3.1031450 1.1700570 2.6421856
## [15] 1.5925803 1.7467058 0.7253894 2.7577227 1.4555770 1.7245109 0.4063506
## [22] 0.7363427 0.5007544 0.9097903 0.8372396 0.4922751 0.6684240 0.9695087
## [29] 0.8762035 1.3199029 0.4688645 0.5860233 1.1136599 0.5733833
summary(AUCratios)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##  0.4064  0.7281  1.1030  1.2980  1.4760  4.5580
hist(AUCratios)

print("There is not much difference with the null hypothesis which is one.")
## [1] "There is not much difference with the null hypothesis which is one."
str(Min.SSI.No.Conflict)
##  num [1:34] 2.07e-04 3.91e-05 6.29e-05 4.75e-05 2.43e-02 ...
summary(Min.SSI.No.Conflict)
##      Min.   1st Qu.    Median      Mean   3rd Qu.      Max. 
## 6.600e-08 8.443e-05 2.370e-04 1.442e-03 1.111e-03 2.433e-02
hist(Min.SSI.No.Conflict)

str(Min.SSI.Conflict)
##  num [1:34] 2.27e-05 1.71e-04 9.89e-05 1.16e-04 2.37e-03 ...
summary(Min.SSI.Conflict)
##      Min.   1st Qu.    Median      Mean   3rd Qu.      Max. 
## 1.000e-08 3.263e-05 1.154e-04 5.164e-04 6.291e-04 3.378e-03
hist(Min.SSI.Conflict)

str(Max.SSI.No.Conflict)
##  num [1:34] 0.1626 0.1111 0.0367 0.2551 0.0933 ...
summary(Max.SSI.No.Conflict)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
## 0.03668 0.09330 0.12150 0.13490 0.15540 0.32700
hist(Max.SSI.No.Conflict)

str(Max.SSI.Conflict)
##  num [1:34] 0.196 0.284 0.197 0.289 0.235 ...
summary(Max.SSI.Conflict)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
## 0.05764 0.12650 0.16630 0.17190 0.21220 0.29950
hist(Max.SSI.Conflict)

print("There is no difference between the minimum synchrony scores in the two conditions. The maximum of the synchrony score is bigger in the condition conflict than in the condition no Conflict, This could be explain by a random effect since, the time period is bigger in the confict period")
## [1] "There is no difference between the minimum synchrony scores in the two conditions. The maximum of the synchrony score is bigger in the condition conflict than in the condition no Conflict, This could be explain by a random effect since, the time period is bigger in the confict period"